home *** CD-ROM | disk | FTP | other *** search
/ BMUG PD-ROM BV3 / BMUG PD-ROM Version BV3 (CDRM1097900).iso / HyperCard / Games / The Golden Parrot / card_21196.txt < prev    next >
Text File  |  1990-08-20  |  2KB  |  64 lines
  1. -- card: 21196 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 3426
  5. -- name: Climb a pecan tree
  6. ----- HyperTalk script -----
  7. on openCard
  8.   global score
  9.   subtract 5 from score
  10.   if score <= 0 then
  11.     visual effect scroll up
  12.     go card "end"
  13.   end if
  14.   put score into field "scorebox"
  15. end openCard
  16. on mouseUp
  17.  
  18.   get field "textarea" of card "Communal Hut"
  19.   put it&return&"What a view" into field "textarea" of card "Communal Hut"
  20.  
  21.   get field "textarea" of card "Communal Hut"
  22.   put it&return&"Vines for swinging" into field "textarea" of card "Communal Hut"
  23.  
  24.   get field "textarea" of card "Communal Hut"
  25.   put it into holder
  26.   put the number of lines in field "textarea" of card "Communal Hut" into counter
  27.   repeat until counter = 0
  28.     get line counter of holder
  29.     if it contains "Movement in the branches" then
  30.       delete line counter of field "textarea" of card "Communal Hut"
  31.       put 1 into counter
  32.     end if
  33.     subtract 1 from counter
  34.   end repeat
  35.  
  36.   get field "textarea" of card "Communal Hut"
  37.   put it into holder
  38.   put the number of lines in field "textarea" of card "Communal Hut" into counter
  39.   repeat until counter = 0
  40.     get line counter of holder
  41.     if it contains "The prized golden parrot" then
  42.       delete line counter of field "textarea" of card "Communal Hut"
  43.       put 1 into counter
  44.     end if
  45.     subtract 1 from counter
  46.   end repeat
  47.  
  48.   visual effect dissolve
  49.   go to card "Communal Hut"
  50.  
  51. end mouseUp
  52.  
  53.  
  54. -- part contents for background part 1
  55. ----- text -----
  56. Climb a pecan tree
  57.  
  58. -- part contents for background part 2
  59. ----- text -----
  60. You climb the largest tree in the center of the sacred wood. You are high above the forest floor when you spot your prize in a nearby tree.
  61.  
  62. -- part contents for background part 5
  63. ----- text -----
  64. 225